home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / demos / demo701.dxr / Internal (lingo)_1.ls < prev    next >
Encoding:
Text File  |  1998-03-02  |  771 b   |  44 lines
  1. on startMovie
  2.   global gDemoStyle, gSection, gPrevMovie
  3.   put gDemoStyle
  4.   put gSection
  5.   put gPrevMovie
  6.   hDumpPrevMovie()
  7. end
  8.  
  9. on hWheretoGoNext
  10.   global gDemoStyle
  11.   if gDemoStyle = "full" then
  12.     go(1, "DEMO702")
  13.   else
  14.     if gDemoStyle = "group" then
  15.       go(1, "DEMO702")
  16.     else
  17.       if gDemoStyle = "single" then
  18.         go(1, "000D")
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.  
  24. on hGoBackToMEnu
  25.   global gDemoStyle, gSection
  26.   if gDemoStyle = "full" then
  27.     go(1, "000MAIN")
  28.   else
  29.     if gDemoStyle = "group" then
  30.       go(1, "000" & gSection)
  31.     else
  32.       if gDemoStyle = "single" then
  33.         go(1, "000" & gSection)
  34.       end if
  35.     end if
  36.   end if
  37. end
  38.  
  39. on hDumpPrevMovie
  40.   global gPrevMovie
  41.   unloadMovie(gPrevMovie)
  42.   set gPrevMovie to the movieName
  43. end
  44.